unit u_dm_empresacontato;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, u_dm_padrao, FMTBcd, DB, DBClient, Provider, SqlExpr;

type
  Tdm_empresacontato = class(Tdm_padrao)
    cdsRegistroCOD_CONTATO: TIntegerField;
    cdsRegistroLIG_COD_EMPRESA: TIntegerField;
    cdsRegistroDESCRICAO: TStringField;
    cdsRegistroOCUPACAO: TStringField;
    cdsRegistroEMAIL: TStringField;
    cdsRegistroTELEFONE: TStringField;
    cdsRegistroDATA_CAD: TDateField;
    cdsRegistroDATA_ALTERACAO: TDateField;
    cdsRegistroOBS: TStringField;
    cdsConsultaCOD_CONTATO: TIntegerField;
    cdsConsultaLIG_COD_EMPRESA: TIntegerField;
    cdsConsultaDESCRICAO: TStringField;
    cdsConsultaOCUPACAO: TStringField;
    cdsConsultaEMAIL: TStringField;
    cdsConsultaTELEFONE: TStringField;
    cdsConsultaDATA_CAD: TDateField;
    cdsConsultaDATA_ALTERACAO: TDateField;
    cdsConsultaOBS: TStringField;
    cdsConsultaDESCRICAO_MULTIEMPRESA: TStringField;
    cdsRegistroFORNECEDOR: TStringField;
    cdsConsultaFORNECEDOR: TStringField;
    cdsConsultaFORNECEDOR_DESC: TStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm_empresacontato: Tdm_empresacontato;

implementation

{$R *.dfm}

end.
